Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A404A.CMD < prev next >

Wrap

Text File | 1987-01-02 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 404 │" locate 0,8 message s8 locate 0,17 message "│ Atlanta, GA │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- T. J.'S Place .......... 392-1756 V- PC Forum ............... 294-0237 ║" message "║ B- The Right Place ........ 476-2607 W- University ............. 843-1936 ║" message "║ C- Data Plus .............. 981-6010 X- PC World ............... 565-7775 ║" message "║ D- ScholarQuest ........... 396-3630 Y- Austell RBBS-PC ........ 944-0826 ║" message "║ E- Invisible BBS .......... 993-5310 Z- Bill's Obsession ....... 377-2550 ║" message "║ F- Atlanta PC User's Group 433-0062 0- Bird's Nest ............ 751-0252 ║" message "║ G- Southern Connection .... 446-6269 1- Candy Store ............ 924-3397 ║" message "║ H- Powder Springs ......... 439-1306 2- Coterie ................ 948-6596 ║" message "║ I- MicroStuff/Crosstalk ... 998-8048 3- HighTech Revolution .... 951-9251 ║" message "║ J- Flagship ............... 934-4515 4- PC Link ................ 381-6759 ║" message "║ K- Nochange BBS ........... 396-2517 5- Night Light ............ 423-9675 ║" message "║ L- ZAP BBS ................ 972-3458 6- ........................ ...-.... ║" message "║ M- Decibel PBBS ........... 288-6858 7- ........................ ...-.... ║" message "║ N- Fido of the South ...... 995-0182 8- ........................ ...-.... ║" message "║ O- Southside BBS [Tandy] .. 767-0092 9- ........................ ...-.... ║" message "║ P- Loonieland ............. 934-6617 @- ........................ ...-.... ║" message "║ Q- ADAM - IBM Connection .. 424-6258 #- ........................ ...-.... ║" message "║ R- Cloning Board BBS ...... 438-9097 $- ........................ ...-.... ║" message "║ S- Georgia BBS ............ 457-6815 %- ........................ ...-.... ║" message "║ T- Head-Board III ......... 987-0666 &- ........................ ...-.... ║" message "║ U- PC Exchange ............ 977-6686 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "392-1756" assign s6 "T.J.'S PLACE " gosub dial else endif find s0 "B" if found assign s8 "476-2607" assign s6 "RIGHT PLACE " gosub dial else endif find s0 "C" if found assign s8 "981-6010" assign s6 "DATA PLUS " gosub dial else endif find s0 "D" if found assign s8 "396-3630" assign s6 "SCHOLAR QUEST " gosub dial else endif find s0 "E" if found assign s8 "993-5310" assign s6 "INVISIBLE BBS " gosub dial else endif find s0 "F" if found assign s8 "433-0062" assign s6 "ATLANTA PC USER'S GROUP " gosub dial else endif find s0 "G" if found assign s8 "446-6269" assign s6 "THE SOUTHERN CONNECTION " gosub dial else endif find s0 "H" if found assign s8 "439-1306" assign s6 "POWDER SPRINGS " gosub dial else endif find s0 "I" if found assign s8 "998-8048" assign s6 "MICRO STUFF / CROSSTALK " gosub dial else endif find s0 "J" if found assign s8 "934-4515" assign s6 "FLAGSHIP BBS " gosub dial else endif find s0 "K" if found assign s8 "396-2517" assign s6 "NOCHANGE BBS " gosub dial else endif find s0 "L" if found assign s8 "972-3458" assign s6 "ZAP BBS " gosub dial else endif find s0 "M" if found assign s8 "288-6858" assign s6 "Decibel PBBS " gosub dial else endif find s0 "N" if found assign s8 "995-0182" assign s6 "Fido of the South " gosub dial else endif find s0 "O" if found assign s8 "767-0092" assign s6 "Southside BBS " gosub dial else endif find s0 "P" if found assign s8 "934-6617" assign s6 "Loonieland " gosub dial else endif find s0 "Q" if found assign s8 "424-6258" assign s6 "ADAM - IBM Connection " gosub dial else endif find s0 "R" if found assign s8 "438-9097" assign s6 "Cloning Board BBS " gosub dial else endif find s0 "S" if found assign s8 "457-6815" assign s6 "Georgia BBS " gosub dial else endif find s0 "T" if found assign s8 "987-0666" assign s6 "Head-Board III " gosub dial else endif find s0 "U" if found assign s8 "977-6686" assign s6 "PC Exchange " gosub dial else endif find s0 "V" if found assign s8 "294-0237" assign s6 "PC Forum " gosub dial else endif find s0 "W" if found assign s8 "843-1936" assign s6 "University " gosub dial else endif find s0 "X" if found assign s8 "565-7775" assign s6 "PC World " gosub dial else endif find s0 "Y" if found assign s8 "944-0826" assign s6 "Austell RBBS-PC " gosub dial else endif find s0 "Z" if found assign s8 "377-2550" assign s6 "Bill's Obsession " gosub dial else endif find s0 "0" if found assign s8 "751-0252" assign s6 "Bird's Nest " gosub dial else endif find s0 "1" if found assign s8 "924-3397" assign s6 "Candy Store " gosub dial else endif find s0 "2" if found assign s8 "948-6596" assign s6 "Coterie " gosub dial else endif find s0 "3" if found assign s8 "951-9251" assign s6 "HighTech Revolution " gosub dial else endif find s0 "4" if found assign s8 "381-6759" assign s6 "PC Link " gosub dial else endif find s0 "5" if found assign s8 "423-9675" assign s6 "Night Light " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "6" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "7" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit